home *** CD-ROM | disk | FTP | other *** search
/ Physics Lessons / Physics Lessons.iso / pc / sample / system / system.mac < prev    next >
Encoding:
Text File  |  1996-07-17  |  522 b   |  31 lines
  1. {ALT0}
  2. output text ("System Extensions")
  3. return
  4.  
  5. active screen = 9
  6. options calc verbose = false
  7. input menu (5, "~Self Running Demo", "~WordPerfect", "Shell to ~Dos", "S~CREEN.MAC", "E~xit")
  8. iff (lastanswer == 1)
  9.     {
  10.     call ("[fg]mac\demo\demox.mac")
  11.     }
  12. else iff (lastanswer == 2)
  13.     {
  14.     dos wp
  15.     }
  16. else iff (lastanswer == 3)
  17.     {
  18.     dos
  19.     }
  20. else iff (lastanswer == 4)
  21.     {
  22.     call ("[fg]mac\misc\screen.mac")
  23.     return
  24.     }
  25. else
  26.     {
  27.     cls
  28.     }
  29. active screen = 2
  30. cls
  31.